1 POKE45,055:POKE46,072:CLR:POKE53265,PEEK(53265)AND239 2 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 3 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 4 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]x-mON"; 5 PRINT"64ISONEOFTHEMOSTCOMMON[159][221][221][153]OFTHEPUBLICDOMAINMACHINELANGU"; 6 PRINT"AGE[159]}}[153]MONITORS.iTISONEOFTHEBESTAS[159]}}[153]WELL.hEREISABRIEF"; 7 PRINT"DESCRIPTIONOF[159]}}[153]ITSFEATURES.[159]}[171]````````````"; 8 PRINT"``````````````````````````[179]}sIMPLEaSSEMBLER[159]}}"; 9 PRINT"}}[152].[155]A2000[152]A912[155]LDA#$12"; 10 PRINT"[159]}}[152].A20029D0080[155]STA$8000,X[159]}}[152].A2005"; 11 PRINT"[159]}}}}[153]hERE,TH"; 12 PRINT"EUSERBEGANASSEMBLYAT$2000.[159]}}[153]tHEPROMPTISAPERIOD.iNTHEFIRS"; 13 PRINT"T[159]}}[153]LINEONLYTHEUSERMUSTENTER[155].A2000[159]}}[153]FOLLOWEDBYTHECOMMAND"; 14 PRINT"[155]LDA#$12[153].tHE[159]}}[153]HEXOPCODES[152](A912)[153]ARESUPPLIEDBY[159]}}[153]THEMONI"; 15 PRINT"TORAFTERTHE[160]returnKEYIS[159]}}[153]PRESSED.iNTHESECONDLINETHEUSER"; 16 PRINT"[159]}[171]``````````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE1[159]}[155]"; 17 PRINT"[210]ETURN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 18 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 19 GOSUB246 20 POKE53265,PEEK(53265)AND239:CLR 21 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 22 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 23 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]DIDN"; 24 PRINT"OTNEEDTOTYPETHE[155]A[153]&ADDRESS.[159]}}[153]tHESIMPLEASSEMBLERRETYPEDTHE"; 25 PRINT"LAST[159]}}[153]ENTEREDLINEANDPROMPTSWITHTHENEXT[159]}}[153]ADDRESS.tOEXITTHE"; 26 PRINT"ASSEMBLER,PRESS[159]}}[153]returnAFTERTHEADDRESSPROMPT.sYNTAX[159]}}[153]ISTHESA"; 27 PRINT"MEASDISASSEMBLEROUTPUT.[159]}}[153]a'[155]:[153]'CANBEUSEDTOTERMINATEALINE"; 28 PRINT".[159]}[171]``````````````````````````````````````[179]}cOMPAREMEMORY"; 29 PRINT"[159]}}}}[152].[155]C10002000C00"; 30 PRINT"0[159]}}}}[153]tHISC"; 31 PRINT"OMPARESMEMORYFROM$1000TO[159]}}[153]$2000TOMEMORYBEGINNINGAT$C00"; 32 PRINT"0.[159]}}[153]cOMPAREWILLPRINTTHELOCATIONOF[159]}}[153]UNEQUALBYTES."; 33 PRINT"[159]}[171]``````````````````````````````````````[179]}dISASSEMBLER"; 34 PRINT"[159]}}[155](MORE)[159]}[171]```"; 35 PRINT"```````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE2[159]}[155]rETURN"; 36 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 37 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 38 GOSUB246 39 POKE53265,PEEK(53265)AND239:CLR 40 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 41 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 42 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[152].[155]D2"; 43 PRINT"000[159]}}"; 44 PRINT"}}[153]tHISWILLDISASSEMBLETOTHEENDOF[159]}}[153]MEMORYSTARTINGAT$200"; 45 PRINT"0.tHETHREE[159]}}[153]BYTESFOLLOWINGTHEADDRESSESINTHE[159]}}[153]DISASSEMBLY"; 46 PRINT"MAYBEMODIFIED.[213]SETHE[159][221][221][153][195][210][211][210]KEYSTOMOVETOANDMODIFYTHE[159][221][221][153]"; 47 PRINT"BYTES.hITreturnANDTHEBYTESIN[159]}}[153]MEMORYWILLBECHANGED.xMONW"; 48 PRINT"ILLTHEN[159]}}[153]DISASSEMBLETHATLINEAGAIN.[159]}}"; 49 PRINT"}}[152].[155]D20003000[159]}}"; 50 PRINT"}}[153]tHISDISASSEMBLESFROM$2000TO$3000.[159]"; 51 PRINT"}[171]``````````````````````````````````````[179]}fILLMEMORY[152].[155]F10001100"; 52 PRINT"00[159]}}}}[153]tHISFILLSMEMORY"; 53 PRINT"FROM$1000TO$1100[159]}}[153]WITHZEROS.[159]}[171]``````"; 54 PRINT"````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE3[159]}[155]rETURN="; 55 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 56 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 57 GOSUB246 58 POKE53265,PEEK(53265)AND239:CLR 59 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 60 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 61 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}gORU"; 62 PRINT"N[159]}}"; 63 PRINT"}}[152].[155]G[159]}}"; 64 PRINT"}}[153]tHISWILLCAUSETHECOMPUTERTOGOTO[159]}}[153]THEADDRESSI"; 65 PRINT"NTHEPROGRAMCOUNTER[159]}}[153]DISPLAYANDEXECUTECODE.aLLTHEREG-[159]}}[153]IS"; 66 PRINT"TERSWILLBEREPLACEDWITHTHEDIS-[159]}}[153]PLAYEDVALUES."; 67 PRINT"[159]}}}}[152].[155]G1000"; 68 PRINT"[159]}}}}[153]tHISWILLC"; 69 PRINT"AUSETHECOMPUTERTOGOTO[159]}}[153]ADDRESS$1000ANDBEGINRUNNINGCODE.[159]}[171]"; 70 PRINT"``````````````````````````````````````[179]}hUNTMEMORY[152].[155]HC000D000'"; 71 PRINT"READ[159]}}}}[153]tHISCAUSESTHEMON"; 72 PRINT"ITORTOHUNTMEMORY[159]}}[153]FROM$C000TO$D000FORTHEascii[159]}[171]````````"; 73 PRINT"``````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE4[159]}[155]rETURN=gO"; 74 PRINT"[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 75 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 76 GOSUB246 77 POKE53265,PEEK(53265)AND239:CLR 78 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 79 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 80 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]STRIN"; 81 PRINT"G'READ'ANDPRINTTHEADDRESS[159]}}[153]WHEREITISFOUND.aMAXIMUMOF"; 82 PRINT"32[159]}}[153]CHARACTERSMAYBEUSED.[159]}}"; 83 PRINT"}}[152].[155]HC000D00020D2FD[159]}}"; 84 PRINT"}}[153]tHISWILLHUNTMEMORYFROM$C000TO[159]}}[153]$D"; 85 PRINT"000FORTHESEQUENCEOFBYTES$20[159]}}[153]$D2$FDANDPRINTANYADDRESSWH"; 86 PRINT"EREIT[159]}}[153]ISFOUND.aMAXIMUMOF32BYTESMAYBE[159]}}[153]USED.hUNTCANBE"; 87 PRINT"STOPPEDWITHTHE[159]}}[153]run/stopKEY.[159]}[171]`````````"; 88 PRINT"`````````````````````````````[179]}iNTERROGATEMEMORY[159]}"; 89 PRINT"}}}[152].[155]IF000"; 90 PRINT"[159]}}}}[155].'F000544F4F20"; 91 PRINT"4D414E59(MORE)[159]}}[155]TOO MANY[146][159]}[171]``````"; 92 PRINT"````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE5[159]}[155]rETURN="; 93 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 94 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 95 GOSUB246 96 POKE53265,PEEK(53265)AND239:CLR 97 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 98 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 99 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[152].'F0"; 100 PRINT"082046494C45D34649(MORE)[159]}}[152] FILES"; 101 PRINT"FI[146][159]}}}}[153]tHISCOMMANDDISPLAYS"; 102 PRINT"HEXANDascii[159]}}[153]UNTILTHEENDOFMEMORY.[159]}}"; 103 PRINT"}}[152].IF000F080[159]}}"; 104 PRINT"}}[153]tHISDISPLAYSHEXANDasciiFROM"; 105 PRINT"$F000[159]}}[153]TO$F080.[159]}[171]``````````````````````"; 106 PRINT"````````````````[179]}lOAD[159]}}"; 107 PRINT"}}[152].[155]L'[FILENAME]'[159]}}"; 108 PRINT"}}[153]tHISWILLLOADAFILEWITHA"; 109 PRINT"USER[159]}}[153]DEFINEDNAMEFROMTHECASSETTEUNIT.[159]}}"; 110 PRINT"}}[152].[155]L'[FILENAME]',08[159]}[171]``````````"; 111 PRINT"````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE6[159]}[155]rETURN=gOo"; 112 PRINT"N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 113 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 114 GOSUB246 115 POKE53265,PEEK(53265)AND239:CLR 116 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 117 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 118 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]lOADS"; 119 PRINT"AFILEFROMTHEDISKDRIVE.[159]}}"; 120 PRINT"}}[150]beware!lOADWITHAFILENAMEBREAKS[159]}}[150]THEirqSAVEDBYTHEMONI"; 121 PRINT"TOR.dONOT[159]}}[150]USE[152].[155]G[150]TOTHEPCREGISTERAFTERALOAD[159]}}[150]WITHAFIL"; 122 PRINT"ENAME.[159]}[171]``````````````````````````````````````[179]}"; 123 PRINT"mEMORYDISPLAY[159]}}"; 124 PRINT"}}[152].[155]M00000008[159]}}"; 125 PRINT"}}[152].:00000001A0B34D5CF6E7[159]}}[152].:00082"; 126 PRINT"8498A4B5C7D0E3F[159]}}}}"; 127 PRINT"[153]tHISWILLDISPLAYMEMORYFROM$0000TO[159]}}[153]$0008.tHEBYTESFOLLOWINGTH"; 128 PRINT"EADDRESS[159]}}[153]MAYBEMODIFIEDBYEDITINGANDTHEN[159]}}[153]PRESSINGreturn."; 129 PRINT"nOTE:[152].[155]M00000000[159]}}[153]WILLALSORETURNTHE1STLINEABOVE.[159]}[171]````"; 130 PRINT"``````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE7[159]}[155]rETURN"; 131 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 132 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 133 GOSUB246 134 POKE53265,PEEK(53265)AND239:CLR 135 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 136 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 137 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}nEWl"; 138 PRINT"OCATOR[159]}}"; 139 PRINT"}}[152].[155]N700077FF600004009000[159]}}"; 140 PRINT"}}[152].[155]N700077FF600004009000W[159]}}"; 141 PRINT"}}[153]tHEFIRSTLINEFIXESALLTHREEBYTE[159]}}[153]INS"; 142 PRINT"TRUCTIONSINTHERANGE$7000TO[159]}}[153]$77FFBYADDING$6000OFFSETTO"; 143 PRINT"EVERY[159]}}[153]BYTETHATFOLLOWSA6510OPCODE.iN[159]}}[153]THESHOWNEXAMPLE,N"; 144 PRINT"EWLOCATORWILL[159]}}[153]NOTADJUSTANYINSTRUCTIONSOUTSIDEOF[159]}}[153]THE$0400"; 145 PRINT"$9000RANGE(INTHISEXAMPLE[159]}}[153]basicCALLS,kernalCALLS,OPERATING[159]"; 146 PRINT"}}[153]SYSTEMSTUFF,ETC.).THESECONDLINE[159]}}[153]ADJUSTS[155].WORD[153]VALUESINT"; 147 PRINT"HESAMERANGE[159]}}[153]ASTHEFIRSTLINE.nEWLOCATORSTOPS[159]}}[153]ANDDISASSEMB"; 148 PRINT"LESONANYBADOPCODES.[159]}}[153](eXTRA6510OPCODES=BAD)[159]}[171]``"; 149 PRINT"````````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE8[159]}[155]rETUR"; 150 PRINT"N=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 151 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 152 GOSUB246 153 POKE53265,PEEK(53265)AND239:CLR 154 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 155 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 156 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}rEGIS"; 157 PRINT"TERDISPLAY[159]}}"; 158 PRINT"}}[152].[155]R[159]}}"; 159 PRINT"}}[152]PCIRQSRACXRYRSP[159]}}[152].;0000E62E5"; 160 PRINT"1DE030405[159]}}}}[153]tHIS"; 161 PRINT"COMMANDDISPLAYSTHEREGISTER[159]}}[153]VALUES.tHEVALUESMAYBECHANGED"; 162 PRINT"BY[159]}}[153]EDITINGTHEMANDPRESSINGreturn.[159]}[171]```````````````````````"; 163 PRINT"```````````````[179]}sAVE[159]}}"; 164 PRINT"}}[152].[155]S'[FILENAME],08,0800,0C80[159]}}"; 165 PRINT"}}[153]tHISSAVESTODISKTHECONTENT"; 166 PRINT"SOF[159]}}[153]$0800UPTO(BUTNOTINCLUDING)$0C80.[159]}}[153](USING01SAVESTOCA"; 167 PRINT"SSETTE).[150]rEMEMBER[159]}}[150]FILEACCESSBREAKSTHESAVEDIRQ.[159]}[171]`````````"; 168 PRINT"`````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE9[159]}[155]rETURN=gO"; 169 PRINT"[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 170 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 171 GOSUB246 172 POKE53265,PEEK(53265)AND239:CLR 173 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 174 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 175 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}tRANS"; 176 PRINT"FERMEMORY[159]}}"; 177 PRINT"}}[152].[155]T100011005000[159]}}"; 178 PRINT"}}[153]tHISCOMMANDTRANSFERSMEMORYINTHE[159]}}[153]RANGE$1000TO"; 179 PRINT"$1100TOTHESECTIONOF[159]}}[153]MEMORYBEGINNINGAT$5000.[159]}[171]```"; 180 PRINT"```````````````````````````````````[179]}wALKCODE"; 181 PRINT"[159]}}}}[152].[155]W"; 182 PRINT"[159]}}[152].[155]W1000[159]}}"; 183 PRINT"[221][221][153][212]HEFIRSTLINEWOULDBEGINSINGLESTEP[159][221][221][153]"; 184 PRINT"WALKINGSTARTINGATTHEADDRESSINTHE[159]}}[153]PC.tHESECONDLINESTARTSWAL"; 185 PRINT"KINGAT[159]}}[153]$1000.wALKWILLCAUSEASINGLESTEP[159]}}[153]ANDDISASSEMBLETH"; 186 PRINT"ENEXTINSTRUCTION.[159]}}[153]('<'=SINGLESTEP,rvs=SLOW,space=FAST)[159]}[171]```````"; 187 PRINT"```````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE10[159]}[155]rETURN=g"; 188 PRINT"O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 189 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 190 GOSUB246 191 POKE53265,PEEK(53265)AND239:CLR 192 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 193 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 194 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}eXIT"; 195 PRINT"TObasic[159]}}"; 196 PRINT"}}[152].[155]X[159]}}"; 197 PRINT"}}[153]tHISCOMMANDWILLEXITTObasicREADY[159]}}[153]MODE.uSEsUPE"; 198 PRINT"RaIDESrestoreMKEY[159]}}[153]SEQUENCEANDALLSTACKPROBLEMSWILL[159]}}[153]BE"; 199 PRINT"HANDLEDPROPERLY.oTHERWISExMON[159]}}[153]MAYLEAVETWOBYTESOFGARBAGEO"; 200 PRINT"NTHE[159]}}[153]STACK.tHISISNOTFATALFORALONG[159]}}[153]TIME,BUTITISANNO"; 201 PRINT"YING![159]}[171]``````````````````````````````````````[179]}pRINTEDoU"; 202 PRINT"TPUT[159]}}}}[153]"; 203 PRINT"pRECEEDINGANYxMONCOMMANDWITHAN[159]}}[153]ASTERISK('*')WILLCAUSEOUTP"; 204 PRINT"UTTOBE[159]}}[153]TRANSFEREDTOTHEPRINTERFORTHAT[159]}}[153]COMMANDONLY.nOTE"; 205 PRINT":sUPERaIDESrestore[159]}}[153]pCOMMANDWILLNOTWORKHERE.[159]}[171]```````"; 206 PRINT"```````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE11[159]}[155]rETURN=g"; 207 PRINT"O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 208 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 209 GOSUB246 210 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$=" [197]XIT [212]HE [208]ROGRAM " 211 POKE53265,PEEK(53265)AND239 212 POKE53280, 0:POKE53281, 0:PRINT"[147]"; 213 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU"; 214 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}"; 215 PRINT"}}[153]dOYOUWISHTO:"; 216 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````"; 217 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}"; 218 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}"; 219 PRINT"[173]````````````````````````[189]}}"; 220 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}"; 221 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}"; 222 PRINT"}}}}"; 223 PRINT"}}[150]hAPPYpROGRAMMING![159]"; 224 PRINT"}}}}"; 225 PRINT"}}}[171]``````````````[178]```````"; 226 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][216]-[205]ON [205]ONITOR[159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#7[159][221][173][192][192][192][192][192][192][192][192]"; 227 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]"; 228 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0 229 GETW$ 230 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256 231 FORX=1066TO1070:POKEX,PO:NEXTX 232 FORX=1097TO1101:POKEX,PO:NEXTX 233 IFW$=""THEN229 234 IFW$=CHR$(13)THENGOTO241 235 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN237 236 GOTO229 237 CO=CO+1:IFCO>2THENCO=1 238 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]" 239 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]" 240 GOTO229 241 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW 242 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]" 243 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]" 244 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 245 LOAD"DOC.DRIVER",8 246 GETW$ 247 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256 248 FORX=1066TO1070:POKEX,PO:NEXTX 249 FORX=1097TO1101:POKEX,PO:NEXTX 250 IFW$=""THEN246 251 RETURN